home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / forms / param10 / form2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-08-24  |  6.3 KB  |  230 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    Caption         =   "Edit Lineup"
  4.    ClientHeight    =   5820
  5.    ClientLeft      =   3405
  6.    ClientTop       =   2685
  7.    ClientWidth     =   7365
  8.    Height          =   6225
  9.    Left            =   3345
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   5820
  12.    ScaleWidth      =   7365
  13.    Top             =   2340
  14.    Width           =   7485
  15.    Begin CommandButton Command3 
  16.       Caption         =   "&Update"
  17.       Height          =   495
  18.       Left            =   3060
  19.       TabIndex        =   20
  20.       Top             =   4080
  21.       Width           =   1215
  22.    End
  23.    Begin CommandButton Command2 
  24.       Cancel          =   -1  'True
  25.       Caption         =   "&Cancel"
  26.       Height          =   495
  27.       Left            =   3060
  28.       TabIndex        =   10
  29.       Top             =   3420
  30.       Width           =   1215
  31.    End
  32.    Begin CommandButton Command1 
  33.       Caption         =   "&OK"
  34.       Default         =   -1  'True
  35.       Height          =   495
  36.       Left            =   3060
  37.       TabIndex        =   9
  38.       Top             =   2700
  39.       Width           =   1215
  40.    End
  41.    Begin TextBox txtPlayer 
  42.       Height          =   495
  43.       Index           =   5
  44.       Left            =   840
  45.       TabIndex        =   5
  46.       Text            =   "Text1"
  47.       Top             =   3075
  48.       Width           =   1215
  49.    End
  50.    Begin TextBox txtPlayer 
  51.       Height          =   495
  52.       Index           =   3
  53.       Left            =   840
  54.       TabIndex        =   3
  55.       Text            =   "Text1"
  56.       Top             =   1965
  57.       Width           =   1215
  58.    End
  59.    Begin TextBox txtPlayer 
  60.       Height          =   495
  61.       Index           =   8
  62.       Left            =   840
  63.       TabIndex        =   8
  64.       Text            =   "Text1"
  65.       Top             =   4740
  66.       Width           =   1215
  67.    End
  68.    Begin TextBox txtPlayer 
  69.       Height          =   495
  70.       Index           =   7
  71.       Left            =   840
  72.       TabIndex        =   7
  73.       Text            =   "Text1"
  74.       Top             =   4185
  75.       Width           =   1215
  76.    End
  77.    Begin TextBox txtPlayer 
  78.       Height          =   495
  79.       Index           =   6
  80.       Left            =   840
  81.       TabIndex        =   6
  82.       Text            =   "Text1"
  83.       Top             =   3630
  84.       Width           =   1215
  85.    End
  86.    Begin TextBox txtPlayer 
  87.       Height          =   495
  88.       Index           =   4
  89.       Left            =   840
  90.       TabIndex        =   4
  91.       Text            =   "Text1"
  92.       Top             =   2520
  93.       Width           =   1215
  94.    End
  95.    Begin TextBox txtPlayer 
  96.       Height          =   495
  97.       Index           =   2
  98.       Left            =   840
  99.       TabIndex        =   2
  100.       Text            =   "Text1"
  101.       Top             =   1410
  102.       Width           =   1215
  103.    End
  104.    Begin TextBox txtPlayer 
  105.       Height          =   495
  106.       Index           =   1
  107.       Left            =   840
  108.       TabIndex        =   1
  109.       Text            =   "Text1"
  110.       Top             =   840
  111.       Width           =   1215
  112.    End
  113.    Begin TextBox txtPlayer 
  114.       Height          =   495
  115.       Index           =   0
  116.       Left            =   840
  117.       TabIndex        =   0
  118.       Text            =   "Text1"
  119.       Top             =   300
  120.       Width           =   1215
  121.    End
  122.    Begin JmParamCtl Paramctl1 
  123.       Left            =   2400
  124.       Top             =   300
  125.    End
  126.    Begin Label Label1 
  127.       Caption         =   "P"
  128.       Height          =   255
  129.       Left            =   240
  130.       TabIndex        =   19
  131.       Top             =   300
  132.       Width           =   315
  133.    End
  134.    Begin Label Label2 
  135.       Caption         =   "C"
  136.       Height          =   255
  137.       Left            =   240
  138.       TabIndex        =   18
  139.       Top             =   840
  140.       Width           =   315
  141.    End
  142.    Begin Label Label3 
  143.       Caption         =   "1B"
  144.       Height          =   255
  145.       Left            =   240
  146.       TabIndex        =   17
  147.       Top             =   1410
  148.       Width           =   315
  149.    End
  150.    Begin Label Label4 
  151.       Caption         =   "2B"
  152.       Height          =   255
  153.       Left            =   240
  154.       TabIndex        =   16
  155.       Top             =   1965
  156.       Width           =   315
  157.    End
  158.    Begin Label Label5 
  159.       Caption         =   "3B"
  160.       Height          =   255
  161.       Left            =   240
  162.       TabIndex        =   15
  163.       Top             =   2520
  164.       Width           =   315
  165.    End
  166.    Begin Label Label6 
  167.       Caption         =   "SS"
  168.       Height          =   255
  169.       Left            =   240
  170.       TabIndex        =   14
  171.       Top             =   3075
  172.       Width           =   315
  173.    End
  174.    Begin Label Label7 
  175.       Caption         =   "LF"
  176.       Height          =   255
  177.       Left            =   240
  178.       TabIndex        =   13
  179.       Top             =   3630
  180.       Width           =   315
  181.    End
  182.    Begin Label Label8 
  183.       Caption         =   "CF"
  184.       Height          =   255
  185.       Left            =   240
  186.       TabIndex        =   12
  187.       Top             =   4185
  188.       Width           =   315
  189.    End
  190.    Begin Label Label9 
  191.       Caption         =   "RF"
  192.       Height          =   255
  193.       Left            =   240
  194.       TabIndex        =   11
  195.       Top             =   4740
  196.       Width           =   315
  197.    End
  198. Option Explicit
  199. Declare Function CallForm Lib "PARAMCTL" (Ctl As Form, ByVal CallType As Integer, args() As String) As Long
  200. Sub Command1_Click ()
  201.     UpdateValues
  202.     Unload Me
  203. End Sub
  204. Sub Command2_Click ()
  205.     Unload Me
  206. End Sub
  207. Sub Command3_Click ()
  208.     UpdateValues
  209. End Sub
  210. Sub Paramctl1_CallForm (CallType As Integer, ReturnValue As Long)
  211.     Dim ii As Integer
  212.     For ii = 1 To Paramctl1.ArgCount
  213.         txtPlayer(ii - 1) = Paramctl1.Argument(ii)
  214.     Next ii
  215. End Sub
  216. Sub UpdateValues ()
  217.     ReDim args(0 To 8)  As String
  218.     Dim ii As Integer
  219.     For ii = LBound(args) To UBound(args)
  220.         args(ii) = txtPlayer(ii)
  221.     Next ii
  222.     Dim rvalue As Long
  223.     rvalue = CallForm(Form1, 1, args())
  224.     ' The form that gets call can return a value to us
  225.     ' so we use the return values.
  226.     For ii = LBound(args) To UBound(args)
  227.         txtPlayer(ii) = args(ii)
  228.     Next ii
  229. End Sub
  230.